home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 September (IDG) / Sep99.iso / Shareware World / Comms & Internet / LinkConverter 1.1.2 / Dialog Director v0.7 / Examples / Switch Apps.as < prev    next >
Encoding:
Text File  |  1998-01-12  |  546 b   |  10 lines  |  [TEXT/ToyS]
  1. on run
  2.     tell application "Finder" to set p to ["Finder"] & name of processes
  3.     set d to dd auto dialog {size:[260, 295], contents:[¬
  4.         {class:push button, bounds:[190, 265, 250, 285], name:"OK", enabled:4}, ¬
  5.         {class:push button, bounds:[110, 265, 170, 285], name:"Cancel"}, ¬
  6.         {class:static text, bounds:[10, 10, 250, 26], contents:"Choose an application:"}, ¬
  7.         {class:list box, bounds:[20, 40, 240, 240], contents:p, action:1}] ¬
  8.         , timeout after:60} with grayscale
  9.     if item 1 of d then activate application (item (item 4 of d) of p)
  10. end run